home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Nordlicht Spiele / Nordlicht Spiele 15-09 (19xx)(Nordlicht)(DE)(PD).zip / Nordlicht Spiele 15-09 (19xx)(Nordlicht)(DE)(PD).adf / bauernskat < prev    next >
Text File  |  1988-12-31  |  13KB  |  423 lines
  1. ON BREAK GOSUB BHandle : BREAK ON
  2. RANDOMIZE TIMER
  3. DIM Karte#(91),BackS#(91),Weg%(32),Wert%(32),c%(4),Sp1%(16),Sp2%(16),Px%(16),Py%(16)
  4. Pu1=0 : Pu2=0 : GP1=0 : GP2=0
  5. OPEN "r",#1,":Daten/Karten.rel",736
  6. FIELD #1,736 AS Daten$
  7. WINDOW 1,SPACE$(14)+"Bauern-Skat",,16,1
  8. RESTORE Werte
  9. FOR z=1 TO 32
  10.   READ Wert%(z)
  11. NEXT z : RESTORE Positionen
  12. FOR z=1 TO 16 : READ Px%(z) : NEXT z
  13. FOR z=1 TO 16 : READ Py%(z) : NEXT z
  14. Werte:
  15.   DATA 0,0,0,0,0,0,0,0,0,0,0,0,10,10,10,10,2,2,2,2,3,3,3,3,4,4,4,4,11,11,11,11
  16. Positionen:
  17.   DATA 10,50,90,130,10,50,90,130,10,50,90,130,10,50,90,130
  18.   DATA 0,0,0,0,50,50,50,50,110,110,110,110,160,160,160,160
  19. GOSUB Spielerzahl
  20. Start:
  21.   Dran=2 : Dran1=2 : GP1=0 : GP2=0
  22. Start2:
  23.   CLS : GOSUB Kartengeben : Dran=Dran1
  24.   FOR Stich=1 TO 16
  25.     GOSUB Stiche
  26.   NEXT Stich
  27.   LOCATE 1,21 : PRINT "Spieler 1 :";Pu1
  28.   LOCATE 1,37 : PRINT GP1;
  29.   LOCATE 25,21: PRINT "Spieler 2 :";Pu2;
  30.   LOCATE 25,37 : PRINT GP2;
  31.   IF Pu1>Pu2 THEN GP1=GP1+1 
  32.   IF Pu2>Pu1 THEN GP2=GP2+1
  33.   IF Pu1=Pu2 THEN
  34.     IF Dran1=1 THEN GP2=GP2+1
  35.     IF Dran1=2 THEN GP1=GP1+1
  36.   END IF
  37.   GOSUB Lach
  38.   IF Dran1=1 THEN Dran1=2 ELSE Dran1=1
  39.   FOR w=1 TO 6000 : NEXT w
  40.   CLS
  41. GOTO Start2
  42.  
  43. Kartengeben:
  44.   FOR z=1 TO 32 : Weg%(z)=0 : NEXT z : Pu1=0 : Pu2=0
  45.   FOR z=1 TO 16 : Sp1%(z)=0 : Sp2%(2)=0 : NEXT z
  46.   LOCATE 1,21 : PRINT "Spieler 1 : ???";
  47.   LOCATE 1,37 : PRINT GP1;
  48.   LOCATE 25,21: PRINT "Spieler 2 : ???";
  49.   LOCATE 25,37 : PRINT GP2;
  50.   GOSUB DrawEnde
  51.   FOR z=1 TO 16
  52.    Nochmal1:
  53.     zu=INT(1+RND(1)*32)
  54.     IF Weg%(zu)=1 THEN Nochmal1
  55.     Sp1%(z)=zu : Weg%(zu)=1
  56.   NEXT z
  57.   FOR z=1 TO 16
  58.    Nochmal2:
  59.     zu=INT(1+RND(1)*32)
  60.     IF Weg%(zu)=1 THEN Nochmal2
  61.     Sp2%(z)=zu : Weg%(zu)=1
  62.   NEXT z
  63.   GET #1,33 : GOSUB LadeBild
  64.   FOR z=0 TO 91 : BackS#(z)=Karte#(z) : NEXT z
  65.   IF Dran1=1 THEN St=1 : En=16 : Ste=1 ELSE St=16 : En=1 : Ste=-1
  66.   FOR z=St TO En STEP Ste
  67.     IF z<=4 OR z>12 THEN PUT (Px%(z),Py%(z)),Karte#,PSET
  68.     IF z>8 AND z<=12 THEN PUT (Px%(z-4),Py%(z-4)),Karte#,PSET
  69.     IF z>4 AND z<=8 THEN PUT (Px%(z+4),Py%(z+4)),Karte#,PSET
  70.     SOUND 200,.1,255,0
  71.   NEXT z
  72.   FOR s=St TO En STEP Ste
  73.     IF s<=4 THEN GET #1,Sp1%(s)
  74.     IF s>4 AND s<=8 THEN GET #1,Sp2%(s-4)
  75.     IF s>8 AND s<=12 THEN GET #1,Sp1%(s-4)
  76.     IF s>12 THEN GET #1,Sp2%(s-8)
  77.     GOSUB LadeBild
  78.     IF s<=4 OR s>12 THEN PUT (Px%(s),Py%(s)),Karte#,PSET
  79.     IF s>8 AND s<=12 THEN PUT (Px%(s-4),Py%(s-4)),Karte#,PSET
  80.     IF s>4 AND s<=8 THEN PUT (Px%(s+4),Py%(s+4)),Karte#,PSET
  81.     IF s=4 AND Ste=1 THEN GOSUB Trumpf
  82.     IF s=13 AND Ste=-1 THEN GOSUB Trumpf
  83.     SOUND 200,.1,255,0
  84.   NEXT s
  85. RETURN
  86.  
  87. LadeBild:
  88.   h=1
  89.   FOR z=0 TO 91
  90.     Karte#(z)=CVD(MID$(Daten$,h,h+7))
  91.     h=h+8
  92.   NEXT z
  93. RETURN
  94.  
  95. Trumpf:
  96.     IF Dran1=1 THEN
  97.       LOCATE 2,23 : PRINT Sp1$: LOCATE 3,23 : PRINT "Was ist Trumpf?"
  98.       y1=0 : y2=45 : GOSUB Waehlen
  99.       LOCATE 2,23 : PRINT "          " : LOCATE 3,23 : PRINT "               "
  100.      ELSE
  101.       LOCATE 23,23 : PRINT Sp2$ : LOCATE 24,23 : PRINT "Was ist Trumpf?"
  102.       y1=160 : y2=205 : GOSUB Waehlen
  103.       LOCATE 23,23 : PRINT "          " : LOCATE 24,23 : PRINT "               "
  104.     END IF
  105. RETURN
  106.  
  107. Waehlen:
  108.   test=MOUSE(0) : x=0 : y=0
  109.   WHILE MOUSE(0)=0
  110.     x=MOUSE(1) : y=MOUSE(2)
  111.   WEND
  112.   SOUND 500,1,255,3
  113.   IF y>87 AND y<111 AND x>255 AND x<313 THEN 
  114.     GOSUB EndeSpiel
  115.     IF Neu=1 THEN GOTO Ehrung
  116.   END IF
  117.   IF y>y1 AND y<y2 THEN
  118.     p=INT((x-6)/40)+1
  119.     IF p<1 OR p>4 THEN Waehlen
  120.     IF y1=0 THEN Tr=Sp1%(p) ELSE Tr=Sp2%(p+4)
  121.     FOR h=1 TO 7
  122.       Tr=Tr-4 : IF Tr<1 THEN Tr=Tr+4 : GOTO Fertig1
  123.     NEXT h
  124.     Fertig1:
  125.     IF Tr=1 THEN Tr$="Karo"
  126.     IF Tr=2 THEN Tr$="Herz"
  127.     IF Tr=3 THEN Tr$="Pik"
  128.     IF Tr=4 THEN Tr$="Kreuz"
  129.    ELSE
  130.     GOTO Waehlen
  131.   END IF
  132.   LOCATE 13,2 : PRINT "Trumpf ist ";Tr$;"  "
  133. RETURN
  134.  
  135. Stiche:
  136.   IF Dran=1 THEN
  137.     LOCATE 2,23 : PRINT Sp1$ : LOCATE 3,23 : PRINT "Spielen Sie!"
  138.     y1=0 : y2=95 : GOSUB Waehl : Kart=he : GOSUB Markieren1
  139.     LOCATE 2,23 : PRINT "         " : LOCATE 3,23 : PRINT "            "
  140.      Falsch1:
  141.       LOCATE 23,23 : PRINT Sp2$ : LOCATE 24,23 : PRINT "Antworten Sie!"
  142.       y1=110 : y2=205 : GOSUB Waehl : GOSUB Erlaubt : IF Falsch=1 THEN GOSUB Motz : GOTO Falsch1
  143.       GOSUB Markieren2
  144.       LOCATE 23,23 : PRINT "         " : LOCATE 24,23 : PRINT "              "
  145.     GOSUB Gewinner
  146.     IF Ge$="Ero" THEN
  147.       Pu1=Pu1+Wert%(Sp1%(Kart))+Wert%(Sp2%(he)) : Dran=1
  148.       PUT (280,28),BackS#,PSET
  149.     END IF
  150.     IF Ge$="Ant" THEN 
  151.       Pu2=Pu2+Wert%(Sp1%(Kart))+Wert%(Sp2%(he)) : Dran=2
  152.       PUT (280,130),BackS#,PSET
  153.     END IF
  154.     FOR w=1 TO 1000 : NEXT w
  155.     LINE (170,82)-(235,127),0,bf
  156.     Sp1%(Kart)=0 : Sp2%(he)=0
  157.     IF Kart<9 THEN
  158.       GET #1,Sp1%(Kart+8) : GOSUB LadeBild : SOUND 300,.1,255,0
  159.       PUT (Px%(Kart),Py%(Kart)),Karte#,PSET
  160.     END IF
  161.     IF he<9 THEN 
  162.       GET #1,Sp2%(he+8) : GOSUB LadeBild : SOUND 300,.1,255,0
  163.       PUT (Px%(he+8),Py%(he+8)),Karte#,PSET
  164.     END IF    
  165.     FOR w=1 TO 1000 : NEXT w
  166.     LINE (170,82)-(231,127),0,bf
  167.    ELSE
  168.     LOCATE 23,23 : PRINT Sp2$ : LOCATE 24,23 : PRINT "Spielen Sie!"
  169.     y1=110 : y2=205 : GOSUB Waehl : Kart=he : GOSUB Markieren1
  170.     LOCATE 23,23 : PRINT "         " : LOCATE 24,23 : PRINT "            "
  171.     Falsch2:
  172.     LOCATE 2,23 : PRINT Sp1$ : LOCATE 3,23 : PRINT "Antworten Sie!"
  173.     y1=0 : y2=95 : GOSUB Waehl : GOSUB Erlaubt : IF Falsch=1 THEN GOSUB Motz : GOTO Falsch2
  174.     GOSUB Markieren2
  175.     LOCATE 2,23 : PRINT "         " : LOCATE 3,23 : PRINT "              "
  176.     GOSUB Gewinner
  177.     IF Ge$="Ero" THEN 
  178.       Pu2=Pu2+Wert%(Sp2%(Kart))+Wert%(Sp1%(he)) : Dran=2
  179.       PUT (280,130),BackS#,PSET
  180.     END IF
  181.     IF Ge$="Ant" THEN
  182.       Pu1=Pu1+Wert%(Sp2%(Kart))+Wert%(Sp1%(he)) : Dran=1
  183.       PUT (280,28),BackS#,PSET
  184.     END IF
  185.     FOR w=1 TO 1000 : NEXT w
  186.     LINE (170,82)-(235,127),0,bf
  187.     Sp1%(he)=0 : Sp2%(Kart)=0
  188.     IF Kart<9 THEN
  189.       GET #1,Sp2%(Kart+8) : GOSUB LadeBild : SOUND 300,.1,255,0
  190.       PUT (Px%(Kart+8),Py%(Kart+8)),Karte#,PSET
  191.     END IF
  192.     IF he<9 THEN 
  193.       GET #1,Sp1%(he+8) : GOSUB LadeBild : SOUND 300,.1,255,0
  194.       PUT (Px%(he),Py%(he)),Karte#,PSET
  195.     END IF    
  196.   END IF
  197. RETURN
  198.     
  199. Gewinner:
  200.   IF y1=0 THEN Ant=Sp1%(he) : Ero=Sp2%(Kart)
  201.   IF y1>0 THEN Ant=Sp2%(he) : Ero=Sp1%(Kart)
  202.   Ant1=Ant : Ero1=Ero
  203.   FOR a=1 TO 7
  204.     Ant1=Ant1-4 : IF Ant1<1 THEN Ant1=Ant1+4 : a=8
  205.   NEXT a
  206.   FOR a=1 TO 7
  207.     Ero1=Ero1-4 : IF Ero1<1 THEN Ero1=Ero1+4 : a=8
  208.   NEXT a
  209.   IF Ero1=Ant1 AND Ant1<>Tr THEN
  210.     IF Ant>Ero THEN Ge$="Ant" ELSE Ge$="Ero"
  211.     IF (Ero>=13 AND Ero<=16) AND Ant<29 AND (Ant<17 OR Ant>20) THEN Ge$="Ero"
  212.     IF (Ant>=13 AND Ant<=16) AND Ero<29 AND (Ero<17 OR Ero>20) THEN Ge$="Ant"
  213.     IF (Ero>=17 AND Ero<=20) THEN Ge$="Ero"
  214.     IF (Ant>=17 AND Ant<=20) THEN Ge$="Ant"
  215.     RETURN
  216.   END IF
  217.   IF Ero1<>Ant1 AND Ant1<>Tr AND (Ant<17 OR Ant>20) THEN Ge$="Ero" : RETURN
  218.   IF Ero1=Tr AND Ant1<>Tr AND (Ant<17 OR Ant>20) THEN Ge$="Ero" : RETURN
  219.   IF Ero1<>Tr AND (Ero<17 OR Ero>20) AND (Ant1=Tr OR (Ant>=17 AND Ant<=20)) THEN Ge$="Ant" : RETURN
  220.   IF Ero1=Tr AND (Ero<17 OR Ero>20) AND (Ant>=17 AND Ant<=20) THEN Ge$="Ant" : RETURN
  221.   IF Ant1=Tr AND (Ant<17 OR Ant>20) AND (Ero>=17 AND Ero<=20) THEN Ge$="Ero" : RETURN
  222.   IF Ero1=Tr AND Ant1=Tr THEN
  223.     IF Ero<Ant THEN Ge$="Ant" ELSE Ge$="Ero"
  224.     IF (Ero>=13 AND Ero<=16) AND Ant<29 AND (Ant<17 OR Ant>20) THEN Ge$="Ero"
  225.     IF (Ant>=13 AND Ant<=16) AND Ero<29 AND (Ero<17 OR Ero>20) THEN Ge$="Ant"
  226.     IF (Ero>=17 AND Ero<=20) THEN Ge$="Ero"
  227.     IF (Ant>=17 AND Ant<=20) THEN Ge$="Ant"
  228.     RETURN
  229.   END IF
  230.   IF (Ero>=17 AND Ero<=20) AND Ant=Tr AND (Ant<17 OR Ant>20) THEN Ge$="Ero" : RETURN
  231.   IF (Ant>=17 AND Ant<=20) AND Ero=Tr AND (Ero<17 OR Ero>20) THEN Ge$="Ant" : RETURN
  232.   IF (Ero>=17 AND Ero<=20) AND (Ant>=17 AND Ant<=20) THEN
  233.     IF Ant>Ero THEN Ge$="Ant" ELSE Ge$="Ero"
  234.     RETURN
  235.   END IF
  236. RETURN
  237.   
  238. Waehl:
  239.   test=MOUSE(0) : x=0 : y=0
  240.   WHILE MOUSE(0)=0
  241.     x=MOUSE(1) : y=MOUSE(2)
  242.   WEND
  243.   SOUND 600,1,255,3
  244.   IF y>87 AND y<111 AND x>255 AND x<313 THEN 
  245.     GOSUB EndeSpiel
  246.     IF Neu=1 THEN GOTO Ehrung
  247.   END IF
  248.   IF y<y1 OR y>y2 THEN Waehl
  249.   IF x<6 OR x>164 THEN Waehl
  250.   IF y>(y1+47) AND y<y2 THEN r=4 ELSE r=0
  251.   p=INT((x-6)/40)+1
  252.   IF p<1 OR p>4 THEN Waehl
  253.   IF y1=0 AND Sp1%(p+r)=0 THEN 
  254.     r=r+8
  255.     IF Sp1%(p+r)=0 THEN Waehl
  256.   END IF  
  257.   IF y1<>0 AND Sp2%(p+r)=0 THEN 
  258.     r=r+8
  259.     IF Sp2%(p+r)=0 THEN Waehl
  260.   END IF
  261.   he=p+r
  262. RETURN
  263.  
  264. Erlaubt:
  265.   Falsch=0
  266.   IF y1=0 THEN h1=Sp2%(Kart) : h2=Sp1%(he)
  267.   IF y1>0 THEN h1=Sp1%(Kart) : h2=Sp2%(he)
  268.   j1=h1 : j2=h2
  269.   FOR l=1 TO 7
  270.     j1=j1-4 : IF j1<1 THEN j1=j1+4 : l=8
  271.   NEXT l
  272.   FOR l=1 TO 7
  273.     j2=j2-4 : IF j2<1 THEN j2=j2+4 : l=8
  274.   NEXT l
  275.   IF j1=Tr AND j2=Tr THEN RETURN
  276.   IF j1=Tr AND (h2>=17 AND h2<=20) THEN RETURN
  277.   IF (h1>=17 AND h1<=20) AND j2=Tr THEN RETURN
  278.   IF (h1>=17 AND h1<=20) AND (h2>=17 AND h2<=20) THEN RETURN
  279.   IF j1=j2 AND (h2<17 OR h2>20) AND (h1<17 OR h1>20) THEN RETURN
  280.   IF j1<>Tr AND (j2=Tr OR (h2>=17 AND h2<=20)) THEN Keinj1
  281.   IF j1<>j2 THEN Keinj1
  282.   IF (h1>=17 AND h1<=20) AND j2<>Tr AND (h2<17 OR h2>20) THEN Keinj1
  283.   IF (j1=Tr OR (h1>=17 AND h1<=20)) AND j2<>Tr THEN Keinj1
  284.   Falsch=1 : RETURN
  285.   Keinj1:
  286.   FOR l=1 TO 8
  287.     IF y1=0 THEN k=Sp1%(l) : IF k=0 THEN k=Sp1%(l+8)
  288.     IF y1>0 THEN k=Sp2%(l) : IF k=0 THEN k=Sp2%(l+8)
  289.     ki=k
  290.     FOR kl=1 TO 7
  291.       k=k-4 : IF k<1 THEN k=k+4 : kl=8
  292.     NEXT kl
  293.     IF h1>=17 AND h1<=20 THEN
  294.       IF k=Tr OR (ki>=17 AND ki<=20) THEN Falsch=1 : RETURN
  295.       GOTO Ueberspr
  296.     END IF
  297.     IF j1=Tr THEN
  298.       IF k=Tr OR (ki>=17 AND ki<=20) THEN Falsch=1 : RETURN
  299.       GOTO Ueberspr
  300.     END IF
  301.     IF j1=k AND (ki<17 OR ki>20) THEN Falsch=1 : RETURN
  302.    Ueberspr:
  303.   NEXT l
  304. RETURN
  305.  
  306. Markieren1:
  307.   IF y1=0 THEN y=0 : GET #1,Sp1%(Kart) ELSE y=110 : GET #1,Sp2%(Kart)
  308.   GOSUB LadeBild
  309.   Po=Kart : SOUND 300,.1,255,0 : PUT (170,82),Karte#,PSET
  310.   GOTO Spare
  311. RETURN
  312.  
  313. Markieren2:
  314.   IF y1=0 THEN y=0 : GET #1,Sp1%(he) ELSE y=110 : GET #1,Sp2%(he)
  315.   GOSUB LadeBild : Po=he : SOUND 300,.1,255,0 : PUT (203,82),Karte#,PSET
  316.  Spare:
  317.   IF Po>8 THEN Po=Po-8
  318.   IF y1=0 THEN PUT (Px%(Po),Py%(Po)),Karte#,XOR
  319.   IF y1>0 THEN PUT (Px%(Po+8),Py%(Po+8)),Karte#,XOR
  320.   IF y1=0 AND he<9 THEN PUT (Px%(Po),Py%(Po)),BackS#,PSET
  321.   IF y1>0 AND he<9 THEN PUT (Px%(Po+8),Py%(Po+8)),BackS#,PSET
  322. RETURN
  323.  
  324. Spielerzahl:
  325.  CLS : LOCATE 3,3 : PRINT "Hallo Spieler 1, Ihren Namen bitte :"
  326.  LOCATE 5,5 : PRINT "(10 Buchst.)"; : INPUT Sp1$
  327.  IF LEN(Sp1$)>10 THEN Sp1$=LEFT$(Sp1$,10)
  328.  LOCATE 10,3 : PRINT "Nun zu Spieler 2, Ihren Namen bitte : "
  329.  LOCATE 12,5 : PRINT "(10 Buchst.)"; : INPUT Sp2$
  330.  IF LEN(Sp2$)>10 THEN Sp2$=LEFT$(Sp2$,10)
  331. RETURN
  332.  
  333. Motz:
  334.   SOUND WAIT
  335.   SOUND 300,3,255,0 : SOUND 300,4,0,0 : SOUND 200,3,255,0
  336.   SOUND RESUME
  337. RETURN
  338.  
  339. Lach:
  340.   FOR s=150 TO 700 STEP 50
  341.     SOUND s,2,255,1
  342.   NEXT s
  343. RETURN
  344.  
  345. Load3:
  346.  
  347. RETURN
  348.  
  349. DrawEnde:
  350.   LINE (255,87)-(303,111),6,b : LOCATE 13,34 : PRINT "ENDE";
  351. RETURN
  352.  
  353. EndeSpiel:
  354.   Neu=0 : WINDOW 2,SPACE$(16)+"Ende?",(0,0)-(300,180),0,1
  355.   WINDOW 2 : SOUND 700,18,255,2
  356.   LOCATE 10,8 : PRINT "Weiter im Programm?"
  357.   LOCATE 15,12 : PRINT "Programm beenden?"
  358.   LINE (47,63)-(215,87),12,b
  359.   LINE (79,103)-(231,127),12,b
  360.  Falsch3:
  361.   test=MOUSE(0) : xx=0 : yy=0
  362.   WHILE MOUSE(0)=0
  363.     xx=MOUSE(1) : yy=MOUSE(2)
  364.   WEND
  365.   IF xx>47 AND xx<215 AND yy>63 AND yy<87 THEN WINDOW CLOSE 2 : RETURN
  366.   IF xx>79 AND xx<231 AND yy>103 AND yy<127 THEN WINDOW CLOSE 2 : Neu=1 : RETURN
  367.  GOTO Falsch3
  368.  
  369. Ehrung:
  370.   IF GP1=0 AND GP2=0 THEN LIBRARY CLOSE : SCREEN CLOSE 1 : END
  371.   CLS : GOSUB Load3 : LOCATE 2,14 : PRINT "Sieger ist"
  372.   PALETTE 6,0,0,0 : PALETTE 7,0,0,0 : PALETTE 8,0,0,0
  373.   FOR w=1 TO 2000 : NEXT w
  374.   LINE (140,120)-(159,160),6,bf : LINE (161,140)-(180,160),6,bf
  375.   LINE (141,119)-(149,111),7 : LINE -(168,111),7 : LINE -(160,119),7
  376.   LINE -(141,119),7 : PAINT (150,115),7,7
  377.   LINE (161,140)-(170,131),7 : LINE -(189,131),7 : LINE -(180,140),7
  378.   LINE -(161,140),7 : PAINT (171,135),7,7
  379.   LINE (168,112)-(168,132),8 : LINE -(160,140),8 : LINE -(160,120),8
  380.   LINE -(168,112),8 : PAINT (165,120),8,8
  381.   LINE (189,132)-(189,151),8 : LINE -(181,159),8 : LINE -(181,140),8
  382.   LINE -(189,132),8 : PAINT (185,145),8,8 : LINE (160,140)-(160,160),8
  383.   PALETTE 6,15/16,15/16,15/16 : PALETTE 7,13/16,13/16,13/16 : PALETTE 8,5/16,5/16,5/16 
  384.   COLOR 1,6 : LOCATE 17,19 : PRINT "1"; : LOCATE 19,22 : PRINT "2"; : COLOR 1,0
  385.   FOR w=1 TO 3000 : NEXT w
  386.   IF GP1>GP2 THEN
  387.     LOCATE 14,20-LEN(Sp1$) : PRINT Sp1$;
  388.     LOCATE 16,23 : PRINT Sp2$;
  389.    ELSEIF GP2>GP1 THEN
  390.     LOCATE 14,20-LEN(Sp2$) : PRINT Sp2$;
  391.     LOCATE 16,23 : PRINT Sp1$;
  392.   END IF
  393.   IF GP1=GP2 THEN
  394.     LOCATE 14,20-LEN(Sp1$) : PRINT Sp1$;
  395.     LOCATE 13,20-LEN(Sp2$) : PRINT Sp2$;
  396.   END IF
  397.   FOR w=1 TO 4000 : NEXT w
  398.   LOCATE 22,7 : PRINT "Doch dabei sein ist alles!";
  399.   FOR w=1 TO 3000 : NEXT w
  400.   LOCATE 16,23 : PRINT "         ";
  401.   FOR z=0 TO 20
  402.     LINE (161,140-z)-(170,131-z),7 : LINE -(189,131-z),7 : LINE -(180,140-z),8
  403.     LINE -(161,140-z),6 : PSET (160,140-z),8 : FOR w=1 TO 50 : NEXT w
  404.   NEXT z
  405.   IF GP1>GP2 THEN
  406.     LOCATE 14,23
  407.     PRINT Sp2$;
  408.   END IF
  409.   IF GP2>GP1 THEN LOCATE 14,23 : PRINT Sp1$;
  410.   LOCATE 24,3 : PRINT "Bitte linke Maustaste betätigen!";
  411.   test=MOUSE(0) : WHILE MOUSE(0)=0 : WEND
  412.   LIBRARY CLOSE : SCREEN CLOSE 1
  413. END
  414.  
  415. BHandle:
  416.   WINDOW 2,"Zum beenden bitte <Ende> benutzen!",(20,100)-(300,107),0,1
  417.   LOCATE 1,16 : PRINT "OK?";
  418.   test=0
  419.   WHILE MOUSE(0)=0 : WEND
  420.   WINDOW CLOSE 2
  421. RETURN
  422.  
  423.